library(ggplot2)
library(plotly)
Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union
library(readr)
library(lubridate)

Attaching package: ‘lubridate’

The following objects are masked from ‘package:base’:

    date, intersect, setdiff, union
library(stringr)

Análisis temporal

df <- read.csv("./BDD_DICIEMBRE_2022.csv")
df$FECHA <- dmy(df$FECHA)
fechas <- data.frame(table(df$FECHA))
colnames(fechas) <- c("Fecha","Freq")
fechas$Fecha <- ymd(fechas$Fecha)
head(fechas)
#class(fechas$Fecha)
library(highcharter)
highchart(type = "stock") %>%
  hc_add_series(
    data = fechas, 
    type = "line",
    hcaes(x=Fecha,
          y=Freq,
          group=year(Fecha)))
df %>%
hchart( 
       type = column,)
sin_mes_fer <- data.frame(table(df$MES_1, df$FERIADO))
colnames(sin_mes_fer) <- c("Mes", "Feriado", "Freq")

hchart(sin_mes_fer, 
       type = "column",
       hcaes(x=Mes,y=Freq,group=Feriado),
       stacking = "normal")
mes <- ggplot(data = df, aes(y=MES_1, fill=FERIADO))+
  geom_bar(
    position = "stack"
  )
font = list(
  family = "DM S",
  size = 15,
  color = "white"
)

label = list(
  bgcolor = "#232F34",
  bordercolor = "transparent",
  font = font
)

ggplotly(mes, tooltip=c("x")) %>%
  style(hoverlabel = label) %>%
  layout(font = font)
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkobHVicmlkYXRlKQ0KbGlicmFyeShzdHJpbmdyKQ0KYGBgDQoNCg0KIyMgQW7DoWxpc2lzIHRlbXBvcmFsDQoNCmBgYHtyfQ0KZGYgPC0gcmVhZC5jc3YoIi4vQkREX0RJQ0lFTUJSRV8yMDIyLmNzdiIpDQpkZiRGRUNIQSA8LSBkbXkoZGYkRkVDSEEpDQpgYGANCmBgYHtyfQ0KZmVjaGFzIDwtIGRhdGEuZnJhbWUodGFibGUoZGYkRkVDSEEpKQ0KY29sbmFtZXMoZmVjaGFzKSA8LSBjKCJGZWNoYSIsIkZyZXEiKQ0KZmVjaGFzJEZlY2hhIDwtIHltZChmZWNoYXMkRmVjaGEpDQpoZWFkKGZlY2hhcykNCiNjbGFzcyhmZWNoYXMkRmVjaGEpDQpgYGANCmBgYHtyfQ0KbGlicmFyeShoaWdoY2hhcnRlcikNCmBgYA0KDQoNCmBgYHtyfQ0KaGlnaGNoYXJ0KHR5cGUgPSAic3RvY2siKSAlPiUNCiAgaGNfYWRkX3NlcmllcygNCiAgICBkYXRhID0gZmVjaGFzLCANCiAgICB0eXBlID0gImxpbmUiLA0KICAgIGhjYWVzKHg9RmVjaGEsDQogICAgICAgICAgeT1GcmVxLA0KICAgICAgICAgIGdyb3VwPXllYXIoRmVjaGEpKSkNCmBgYA0KDQpgYGB7cn0NCmRmICU+JQ0KaGNoYXJ0KCANCiAgICAgICB0eXBlID0gY29sdW1uLCkNCmBgYA0KYGBge3J9DQpzaW5fbWVzX2ZlciA8LSBkYXRhLmZyYW1lKHRhYmxlKGRmJE1FU18xLCBkZiRGRVJJQURPKSkNCmNvbG5hbWVzKHNpbl9tZXNfZmVyKSA8LSBjKCJNZXMiLCAiRmVyaWFkbyIsICJGcmVxIikNCg0KaGNoYXJ0KHNpbl9tZXNfZmVyLCANCiAgICAgICB0eXBlID0gImNvbHVtbiIsDQogICAgICAgaGNhZXMoeD1NZXMseT1GcmVxLGdyb3VwPUZlcmlhZG8pLA0KICAgICAgIHN0YWNraW5nID0gIm5vcm1hbCIpDQpgYGANCg0KYGBge3J9DQptZXMgPC0gZ2dwbG90KGRhdGEgPSBkZiwgYWVzKHk9TUVTXzEsIGZpbGw9RkVSSUFETykpKw0KICBnZW9tX2JhcigNCiAgICBwb3NpdGlvbiA9ICJzdGFjayINCiAgKQ0KYGBgDQoNCmBgYHtyfQ0KZm9udCA9IGxpc3QoDQogIGZhbWlseSA9ICJETSBTIiwNCiAgc2l6ZSA9IDE1LA0KICBjb2xvciA9ICJ3aGl0ZSINCikNCg0KbGFiZWwgPSBsaXN0KA0KICBiZ2NvbG9yID0gIiMyMzJGMzQiLA0KICBib3JkZXJjb2xvciA9ICJ0cmFuc3BhcmVudCIsDQogIGZvbnQgPSBmb250DQopDQoNCmdncGxvdGx5KG1lcywgdG9vbHRpcD1jKCJ4IikpICU+JQ0KICBzdHlsZShob3ZlcmxhYmVsID0gbGFiZWwpICU+JQ0KICBsYXlvdXQoZm9udCA9IGZvbnQpDQpgYGANCg0KDQo=